-- background: 2627 from stack: in
-- bmap block id: 3880
-- flags: 0000
-- background id: 0
-- name: 
----- HyperTalk script -----
on openStack
  put the short date into background field 11



  put the seconds +(((60*60)*24)*45) into it
  convert it to short date
  put it into background field 12





end openStack




on functionKey whichFunction
  if whichFunction = 9 then -- Installemnt
    put (field"A"/annuity((field"APR"/1200),field"N")*field"N")-field"A" into field"FC"
    set numberFormat to "00.00"
    put (field"A"/annuity((field"APR"/1200),field"N")) into field"PMT"
    put ((field"A"+((Field"PMT"*field"N"*.01)*12))/ annuity((field"APR"/1200),field"N")) into Field"CL"


  end if
  if whichFunction = 10 then -- Single Payment
    set numberFormat to "00.00"
    put (field"A"*(Field"N"/365)*(Field"APR"/1200)+FIELD"A")into field "PMTH"
    put (field"A"*(Field"N"/365)*(Field"APR"/1200)+FIELD"A"+ Field"A"*(.01*(field"N"/365))) into field "CLH"

    put field"PMTH" into field"PMT"
    put field"CLH" into Field"CL"


  end if
end functionKey


-- part 1 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=113 top=100 right=124 bottom=180
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: A


-- part 2 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=113 top=123 right=146 bottom=167
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: N


-- part 3 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=113 top=145 right=169 bottom=167
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: APR


-- part 4 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=186 top=142 right=168 bottom=303
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: FC


-- part 5 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=130 top=22 right=47 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: PMT


-- part 12 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=265 top=22 right=47 bottom=402
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: CL


-- part 13 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=238 top=124 right=209 bottom=438
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PMTH


-- part 14 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=156 top=120 right=205 bottom=356
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CLH


-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=3 top=1 right=43 bottom=60
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  go to stack "Home"
end mouseUp




-- part 16 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=464 top=20 right=55 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 17481 / 17481
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Address
----- HyperTalk script -----
on mouseUp
  get the selection
  visual effect zoom open
  go to "Address"
  if it is not empty then find it
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=466 top=131 right=166 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 20965 / 20965
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Do
----- HyperTalk script -----
on mouseUp
  go to card "First Do" of "Datebook"
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=464 top=57 right=92 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 22855 / 22855
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Yearly
----- HyperTalk script -----
on mouseUp
  get the seconds
  convert it to dateItems
  put ((item 1 of it) - 1987) *2 into whichSix
  if item 2 of it > 6 then add 1 to whichSix
  visual effect zoom open
  if whichSix < 1 then go card 1 of stack "DateBook"
  else if whichSix > 5 then go card 5 of stack "DateBook"
  else
    go to card whichSix of stack "DateBook"
    send "bracketWeek" && the seconds to this card
  end if
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=465 top=94 right=129 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 21209 / 21209
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Daily
----- HyperTalk script -----
on mouseUp
  set lockScreen to true
  go stack "DateBook"
  goWeekly the seconds
  set lockScreen to false
end mouseUp



-- part 27 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=208 top=147 right=171 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Name


-- part 28 (field)
-- low flags: 00
-- high flags: 4007
-- rect: left=24 top=195 right=329 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 29 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=467 top=169 right=203 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find
----- HyperTalk script -----
on mouseUp
  doMenu "Find..."
end mouseUp



-- part 31 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=363 top=80 right=98 bottom=439
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Today


-- part 34 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=363 top=101 right=119 bottom=439
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mdate


-- part 35 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=5 top=45 right=92 bottom=59
-- title width / last selected line: 0
-- icon id / first selected line: 1000 / 1000
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Card
----- HyperTalk script -----
on mouseUp
  doMenu "New Card"
  put the short date into background field 11



  put the seconds +(((60*60)*24)*45) into it
  convert it to short date
  put it into background field 12


end mouseUp